﻿
Imports System.Data.SqlClient, System.Globalization
Public Class CursoAD
    Public Function pBuscarCurso(ByVal pCodigo As Integer, ByVal pNommbre As String, ByVal pProfesor As String, ByVal pNivel As String) As List(Of CursoEN)
        Dim lCursos As List(Of CursoEN) = New List(Of CursoEN)
        Dim objCursoLeido As CursoEN = New CursoEN

        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
        Dim strSql As String = "exec sp_BUSCARCurso ' & pCodigo & ','" & pNommbre & "','" & pProfesor & "','" & pNivel & "' "
        'Creamos un conexión a la BD"
        Dim cnx_1 As SqlConnection
        cnx_1 = cnx.obtenerCnx()
        Dim cmd As New SqlCommand(strSql, cnx_1)
        Dim myreader As SqlClient.SqlDataReader = cmd.ExecuteReader()

        If myreader.HasRows Then
            While (myreader.Read())
                objCursoLeido = New CursoEN
                objCursoLeido.IdCurso = myreader.GetString(0)
                objCursoLeido.NombreCurso = myreader.GetString(1)
                objCursoLeido.ProfesordeCurso = New ProfesorEN
                objCursoLeido.ProfesordeCurso.NombreProfesor = myreader.GetString(2)
                objCursoLeido.NiveldeCurso = New NivelEN
                objCursoLeido.NiveldeCurso.NombreNivel = myreader.GetString(3)
                lCursos.Add(objCursoLeido)
            End While
        Else
            MsgBox("No se obtuvieron datos de la Base de datos", MsgBoxStyle.Information, "Aviso")
        End If
        myreader.Close()
        cnx_1.Close()
        Return lCursos
    End Function
End Class
